home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pproject.arc / MILESTON.CLS < prev    next >
Encoding:
Text File  |  1990-06-07  |  1.3 KB  |  60 lines
  1. /* A Milestone marks the completion of significant tasks.
  2.    Milestones do not consume resources or take time. 
  3.    Milestones are used whenever a path must split or
  4.    join.
  5.  
  6.    Milestones descend from Activity and inherit all of
  7.    their methods and instance variables.
  8. */!!
  9.  
  10. inherit(Activity, #Milestone, nil, 2, nil)!!
  11.  
  12. now(MilestoneClass)!!
  13.  
  14. now(Milestone)!!
  15.  
  16. /* Return the class name.  Uses resources for translation. */
  17. Def className(self)
  18. {
  19.   ^loadString(PW_MILESTONE);
  20. }!!
  21.  
  22. /* Draw a Milestone at a location in a window.
  23.    The window manages the details of what the
  24.    Milestone will look like, since it could be
  25.    a PERT chart or a Gantt chart. */
  26. Def  draw(self, window, x, y, hDC)
  27. { 
  28.   drawMilestone(window, self, x, y, hDC);
  29. }!!
  30.  
  31. /* Return the appropriate dialog class to be used
  32.    by editInfo(). */
  33. Def  dialogClass(self)
  34. {
  35.   ^MStoneDialog;
  36. }!!
  37.  
  38. /* Milestones don't have a cost, but should respond to the message. */
  39. Def  getCost(self)
  40. { ^0;
  41. }!!
  42.  
  43. /* Milestones don't have resources, but should respond to the message. */
  44. Def  getResources(self)
  45. {
  46.  errorBox("getResources","Milestone:"+name);
  47.  ^nil;
  48. }!!
  49.  
  50. /* Milestones don't have a cost, but should respond to the message. */
  51. Def  calcCost(self)
  52. { ^0;
  53. }!!
  54.  
  55. /* Milestones don't have a time, but should respond to the message. */
  56. Def  getTime(self)
  57. { ^0;
  58. }!!
  59.  
  60.